$file1 = "rs_il550_610Quad_uniq";
$file2 = "reference_pancreas";
open(BUFF1,$file1);
open(BUFF2,$file2);
open(BUFF3,$file1);
#$line = <BUFF2>;
while($line = <BUFF1>)
{
	chomp $line;
	$line =~ s/"//g;
	@line = split("\t",$line);	
	#print "$line[0]\n";
	$hi{$line[0]} = "k";	
}
#$line = <BUFF1>;
 #print WRBUFF $line;
while($line = <BUFF2>)
{
        chomp $line;
        #@line = split(/\./,$line);
	 $line =~ s/"//g;
	@line = split("\t",$line);
	if($hi{$line[0]} eq "k")
	{
	}
	else{
	print $line."\n";
	}
}

